perm filename FRPOLY.TIM[TIM,LSP]6 blob sn#708210 filedate 1983-04-26 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00012 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 SAIL
C00009 00003	 Franz on a 780 (Old version superceded later in this file)
C00010 00004	 Multics
C00012 00005	 780 Franz
C00014 00006	 UTEXAS20 running UCI-LISP
C00019 00007	 UTLISP 5.1
C00024 00008	 ELISP/UCILISP
C00026 00009	 Texas UCILISP
C00030 00010	 Franz on 11/780 and 11/750
C00035 00011	∂06-May-82  0129	Mabry Tyson <Tyson at SRI-AI> 	FRPOLY results for UCI Lisp  
C00038 00012	LM-2
C00040 ENDMK
C⊗;
;;; SAIL
(setup)
(Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 
(setq base 10. ibase 10.)
10. 
(bench 2.)
(POWER= 2. (7.0E-3 0.0 0.0166666666) (6.0E-3 0.0 0.0166666666) (7.0E-3 1.0E-3 0.05)) 
(bench 5.)
(POWER= 5. (0.146 0.096 0.183333334) (0.171 0.094 0.283333335) (0.14 0.09 0.216666667)) 
(bench 10.)
(POWER= 10. (1.132 0.588 2.4) (5.145 4.055 9.35) (2.399 1.842 4.75)) 
(bench 15.)
(POWER= 15. (5.884 2.235 8.9166666) (41.611 30.642 72.0) (20.687 16.999 47.8166666)) 
(bench 2.)
(POWER= 2. (5.0E-3 0.0 0.0) (5.0E-3 0.0 0.0) (5.0E-3 0.0 0.0)) 
(bench 5.)
(POWER= 5. (0.048 0.0 0.083333333) (0.076 0.0 0.15) (0.231 0.182 0.383333333)) 
(bench 10.)
(POWER= 10. (0.538 0.0 0.983333334) (1.881 0.82 3.45) (1.311 0.766 2.06666666)) 
(bench 15.)
(POWER= 15. (4.457 0.825 7.0833333) (29.15 18.186 57.05) (17.037 13.319 29.8833334)) 
(bench 2)
(POWER= 2. (5.0E-3 0.0 0.0166666666) (5.0E-3 0.0 0.033333333) (6.0E-3 0.0 0.0166666666)) 
(bench 5)
(POWER= 5. (0.049 0.0 0.1) (0.077 0.0 0.066666666) (0.236 0.185 0.4)) 
(bench 10.)
(POWER= 10. (0.542 0.0 1.01666667) (1.903 0.826 3.26666668) (1.33 0.776 2.41666666)) 
(bench 15.)
(POWER= 15. (4.506 0.831 9.2333333) (29.242 18.198 53.9) (16.88 13.226 28.8833334)) 

;;; Model B

(fasload frpoly)

(bench 2)
TEST1 
Timing performed on Tuesday 04/26/83 at 12:36:05.
Cpu (- GC) Time = 5.0E-3
Elapsed Time = 0.033333333
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before  = 1.07315445
Load Average After   = 1.07362497
Average Load Average = 1.07338971
TEST2 
Timing performed on Tuesday 04/26/83 at 12:36:08.
Cpu (- GC) Time = 5.0E-3
Elapsed Time = 0.0166666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before  = 1.0696851
Load Average After   = 1.06967664
Average Load Average = 1.06968087
TEST3 
Timing performed on Tuesday 04/26/83 at 12:36:11.
Cpu (- GC) Time = 4.0E-3
Elapsed Time = 0.0166666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before  = 1.07251835
Load Average After   = 1.07275367
Average Load Average = 1.07263601
NIL 
(bench 5)
TEST1 
Timing performed on Tuesday 04/26/83 at 12:36:20.
Cpu (- GC) Time = 0.042
Elapsed Time = 0.516666666
Wholine Time = 0.0166666666
GC Time = 0.0
Load Average Before  = 1.05037117
Load Average After   = 1.06493556
Average Load Average = 1.05765337
TEST2 
Timing performed on Tuesday 04/26/83 at 12:36:21.
Cpu (- GC) Time = 0.067
Elapsed Time = 3.03333333
Wholine Time = 1.03333333
GC Time = 0.389
Load Average Before  = 1.07364166
Load Average After   = 1.13156891
Average Load Average = 1.10260528
TEST3 
Timing performed on Tuesday 04/26/83 at 12:36:25.
Cpu (- GC) Time = 0.042
Elapsed Time = 0.083333333
Wholine Time = 0.083333333
GC Time = 0.0
Load Average Before  = 1.13101137
Load Average After   = 1.1309315
Average Load Average = 1.13097143
NIL 
(bench 10.)
TEST1 
Timing performed on Tuesday 04/26/83 at 12:37:06.
Cpu (- GC) Time = 0.467
Elapsed Time = 6.81666666
Wholine Time = 1.93333334
GC Time = 0.785
Load Average Before  = 1.0520922
Load Average After   = 1.17209852
Average Load Average = 1.11209536
TEST2 
Timing performed on Tuesday 04/26/83 at 12:37:14.
Cpu (- GC) Time = 0.926
Elapsed Time = 56.9166665
Wholine Time = 12.4833333
GC Time = 5.941
Load Average Before  = 1.1852001
Load Average After   = 2.3180405
Average Load Average = 1.7516203
TEST3 
Timing performed on Tuesday 04/26/83 at 12:38:14.
Cpu (- GC) Time = 0.47
Elapsed Time = 27.7833333
Wholine Time = 5.8833333
GC Time = 2.979
Load Average Before  = 2.3805095
Load Average After   = 2.8017373
Average Load Average = 2.5911234
NIL 
(bench 15.)
TEST1 
Timing performed on Tuesday 04/26/83 at 12:38:55.
Cpu (- GC) Time = 3.145
Elapsed Time = 48.4333334
Wholine Time = 12.5666667
GC Time = 4.824
Load Average Before  = 2.92283165
Load Average After   = 3.26940846
Average Load Average = 3.09612006
TEST2 
Timing performed on Tuesday 04/26/83 at 12:39:47.
Cpu (- GC) Time = 9.434
Elapsed Time = 201.45
Wholine Time = 94.766666
GC Time = 50.48
Load Average Before  = 3.29244137
Load Average After   = 3.04327726
Average Load Average = 3.16785932
TEST3 
Timing performed on Tuesday 04/26/83 at 12:43:11.
Cpu (- GC) Time = 3.159
Elapsed Time = 134.483334
Wholine Time = 81.333333
GC Time = 48.86
Load Average Before  = 3.01823843
Load Average After   = 2.42033207
Average Load Average = 2.71928525
NIL 
;;; Franz on a 780 (Old version superceded later in this file)

;;; FPOLY compiled times (load = 3.5)

(setup)
(Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 
(bench 2)
(POWER= 2 (0.017 0.0) (0.017 0.0) (0.016 0.0)) 
(bench 5)
(POWER= 5 (0.116 0.0) (1.334 1.084) (0.15 0.0)) 
(bench 10)
(POWER= 10 (2.534 1.8) (19.733 17.151) (8.983 7.901)) 
(bench 15)
(POWER= 15 (16.65 8.832) (112.516 89.298) (63.9 56.749)) 
;;; Multics
(setup)
(z 1 1.0 0 (y 1 1.0 0 (x 1 1.0 0 1.0)))
(bench 2)
(power= 2 (0.016692 0.0) (0.015114 0.0) (0.015725 0.0))
(bench 5)
(power= 5 (0.150491 0.0) (0.212428 0.0) (0.154568 0.0))
(bench 10)  ;=8
(power= 10 (0.968238 0.184816) (1.71576 0.389726) (0.99761099 0.187837))
(bench 10.) ;decimal
(power= 12 (2.000796 0.405341) (3.569996 0.880229) (1.883108 0.231459))
(bench 15) ;octal = 13.
(power= 15 (6.563067 1.148998) (13.168704 2.515469) (6.694873 1.155386))
(bench 15.) ;decimal
(power= 17 (12.532608 1.85896) (27.568518 5.391129) (12.636826 1.860995))
(quit)

hmu

Multics 35.0a, load 42.0/120.0; 42 users, 27 interactive, 12 daemons.
Absentee users 1/3 (+2 FG)

;;; 780 Franz

Here are the results or running the pairs benchmark on Franz Lisp on 
a VAX 11/780 runing Berkeley 4BSD Unix.  The load average was less
than one when the timing was done.  These results supersede the timings
you have which were made by us in March.


-> (setup)
(z 1 1.0 0 (y 1 1.0 0 (x 1 1.0 0 1.0)))
-> (bench 2)
(power= 2 (0.0167 0.0) (0.0333 0.0) (0.0 0.0))
-> (bench 5)
(power= 5 (0.15 0.0) (0.75 0.4333) (0.3833 0.2166))
-> (bench 10)
(power= 10 (2.8167 1.05) (8.2333 3.3) (3.2 1.2333))
-> (bench 15)
(power= 15 (18.2333 5.35) (92.0333 41.6333) (18.8 5.1333))
-> 
script done on Fri Apr 24 06:07:48 1981

;;; UTEXAS20 running UCI-LISP

(Times are in the form R+G where R is the runtime (not including GC time)
and G is the GC time.  All times are in seconds.  "Interp" means interpreted,
"Slow" means compiled but using UUO-links, "Fast" means compiled with the UUO
links replaced by direct jumps.)


				   Processor
Program			KL-2060			KI-1060
	   Interp	Slow	  Fast	     Interp	  Slow		Fast

FRPOLY:
 Free:			 100000.		75000.
(bench	 0.719+0     0.142+0	0.043+0	     2.627+0	 0.576+0     0.181+0
  2)	 0.677+0     0.142+0	0.047+0	     2.619+0	 0.545+0     0.168+0
First	 0.677+0     0.141+0	0.042+0	     2.698+0	 0.580+0     0.166+0
 result	 0.687+0     0.140+0	0.043+0			 0.612+0     0.155+0
	----------------------------------------------------------------------
Third	 0.706+0     0.162+0	0.063+0	     2.585+0	 0.630+0     0.256+0
 result	 0.830+0     0.164+0	0.063+0	     2.798+0	 0.610+0     0.227+0
	 0.702+0     0.162+0	0.062+0	     2.733+0	 0.695+0     0.252+0
	 0.700+0     0.162+0	0.065+0			 0.593+0     0.215+0
	======================================================================
(bench	 5.88+0      1.166+0	0.343+0	    22.25+0	 4.384+0     1.451+0
  5)	 5.696+0     1.142+0	0.355+0     21.87+0	 4.462+0     1.297+0
First	 5.706       1.146+0	0.338+0			 4.719+0     1.500+0
 result		     1.18+0	0.351+0
	----------------------------------------------------------------------
Third	 5.891+0     1.343+0	0.523+0	    23.04+0	 4.964+0     2.097+0
 result	 5.880+0     1.383+0	0.51+0	    21.64+0	 5.084+0     2.065+0
	 5.884+0     1.345+0	0.522+0			 5.093+0     2.048+0
		     1.341+0	0.514+0
	======================================================================
(bench	122.2+1.1   25.48+1.02  8.63+1.04	--          --	    31.91+2.12
  10)		    25.14+0.98	8.42+1.02
First		    25.53+1.03	8.47+1.01
	----------------------------------------------------------------------
Third	126.4+2.2   28.17+2.02 11.57+2.04	--	    --	    39.07+6.07
 result		    28.26+2.03 11.54+2.04
		    28.18+2.04 11.28+1.98
	======================================================================
(bench	  --	    39.22+2.16 12.59+2.00	--	    --		--
  15)			       12.98+2.06
First
	----------------------------------------------------------------------
Third	  --	    43.46+3.08 17.22+3.02	--	    --		--
 result			       17.58+3.05
	======================================================================

Note:  The results referred to as the first result is the result obtained
as the first value returned by BENCH.  This is the value computed using
integer coefficients.  The result referred to as the third result is the
third value returned by BENCH (for real number coefficients).  UCI Lisp
does not have the bignum package so it could not compute the second
result returned by the BENCH routine.

-------

;;; UTLISP 5.1
Following are the results for FRPOLY under UTLISP 5.1.  The runs at
75000 (octal) were run interactively; the remainder were submitted
as batch jobs. "runtime" does NOT include "gctime".

Interpreted:

bench 2: (runtime+gctime)

R:     1.168+0     1.168+0     1.149+0     1.147+0
R2:    1.181+0     1.162+0     1.171+0     1.174+0
R3:    1.175+0     1.170+0     1.171+0     1.179+0

bench 5: (runtime over gctime)

R:     9.910       9.917       9.868       9.904
        .156        .145        .152        .148
R2:    5.237       5.261       5.245       5.237
        .162        .156        .157        .156
R3:    9.930       9.899       9.960       9.927
        .323        .315        .311        .300

bench 10:

R:   213.160
       4.205
R2:    7.136
        .168
R3:  213.650
       3.994

bench 2 and bench 5 were run at a field length (= core size) of
75000 (octal) words with:  free space of 7500. words
                           full space of 2583. words
bench 2 required no garbage collections; bench 3 required 4 garbage
collections for each run.

bench 10 was run at a field length of 200000 (octal) words with:
                           free space of 41706. words
                           full space of 6685. words
bench 10 required 38 garbage collections.
For obvious reasons, I did not run bench 15.


Compiled:

bench 2:

R:      .173        .139        .153        .149
       0.          0.           .108       0.
R2:     .165        .167        .156        .150
       0.           .115       0.          0.
R3:     .155        .154        .165        .183
       0.          0.          0.          0.

bench 5:

R:     1.406       1.361       1.353       1.327
        .328        .356        .366        .385
R2:     .897        .872        .857        .861
        .159        .253        .257        .260
R3:    1.430       1.372       1.382       1.375
        .325        .395        .396        .269

bench 10:

R:    30.043      30.009      30.016
       3.989       3.866       4.010
R2:    1.219       1.172       1.218
        .143        .179        .155
R3:   30.495      30.509      30.528
       4.015       3.896       3.916

bench 15:

R:    46.046      46.030
       7.346       7.330
R2:    2.120       2.122
        .171        .174
R3:   46.945      46.736
       7.077       7.264

bench 2 and bench 5 were run at a field length of 75000 (octal)
words with:  free space of 14177. words
             full space of 1554. words
bench 2 required 0 or 1 garbage collections per run; bench 5
required 7 to 8 garbage collections per run.

bench 10 and bench 15 were run at a field length of 200000 (octal)
words with:  free space of 42913. words
             full space of 6859. words
bench 10 required 37 garbage collections per run; bench 15 required
63 garbage collections.

As you can see from the R2 results, there are times when a 60 bit word
size can come in handy.
-------

;;; ELISP/UCILISP
Note that in BENCH, the middle numbers are missing, as we don't have
BIGNUM's.  All numbers are in seconds.  The ones in () are for GC.

In Elisp, all final calls are turned into jumps.  A tailrecursive
function does in fact turn into a loop.  I think the R/UCI compiler does
the same, but I am not as familiar with at.  (As you may know, the Elisp
compiler is a modified Utah PSL compiler from about a year ago.)

Elisp

(bench 10)   .893 (0)	   1.018 (0)
(bench 15)  4.919 (.809)   4.416 (.221)

R/UCI Lisp, NOUUO

(bench 10)   1.137 (.276)    2.658 (1.404)
(bench 15)   7.162 (2.926)  20.208 (14.453)
-------

;;; Texas UCILISP
∂06-May-82  0129	Mabry Tyson <Tyson at SRI-AI> 	FRPOLY results for UCI Lisp  
Date:  6 May 1982 0127-PDT
From: Mabry Tyson <Tyson at SRI-AI>
Subject: FRPOLY results for UCI Lisp
To: rpg at SU-AI

Results on FRPOLY for UCILISP (version from University of Texas at Austin
running on SRI-AI TOPS-20).  Running with the TOPS-10/TOPS-20 compatibility
package.

Notes relevent to this problem:  UCILSP does not have bignums.  (The hooks are
there but I know of no source that uses them.)   All arithmetic operations
are generic and are NOT compiled in-line.  The times reported are CPU times
and the first time (the total) includes the second time (the GC time).
The only non-syntactic change to the source was to change the divisor for
the time computation from 1000000.0 to 1000.0 since UCILSP reports times in
milliseconds.

Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))

Compiled without fast links (and that includes calls to arithmetic functions):
Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))

Compiled without fast links (and that includes calls to arithmetic functions):
(bench 2)
(POWER= 2 (0.84000000E-1 0.00000000) ? (0.90000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.93900000 0.00000000) ? (1.0160000 0.00000000))
(bench 10)
(POWER= 10 (19.273000 1.1050000) ? (19.655000 1.0580000))
(bench 15)
(POWER= 15 (31.048000 2.1530000) ? (33.469000 3.2140000))

Compiled with fast links:
(bench 2)
(POWER= 2 (0.18000000E-1 0.00000000) ? (0.23000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.20800000 0.00000000) ? (0.27900000 0.00000000))
(bench 10)
(POWER= 10 (5.5870000 1.0570000) ? (6.3900000 1.0760000))
(bench 15)
(POWER= 15 (9.1310000 2.0910000) ? (11.560000 3.1940000))
-------

;;; Franz on 11/780 and 11/750
∂25-May-82  0907	jkf@ucbkim at Berkeley 	frpoly benchmark, complete results  
Date: 25 May 1982 09:03:10-PDT
From: jkf@ucbkim at Berkeley
Mail-From: ucbkim received by UCBVAX at 25-May-82 08:46:04-PDT (Tue)
Date: 25-May-82 08:52:21-PDT (Tue)
From: jkf@ucbkim
Subject: frpoly benchmark, complete results
Via: ucbkim.EtherNet (V3.100 [3/27/82]); 25-May-82 08:52:27-PDT (Tue)
Via: ucbvax.EtherNet (V3.100 [3/27/82]); 25-May-82 08:46:04-PDT (Tue)
To: rpg@su-ai
Cc: jkf@fateman@Berkeley

frpoly benchmark			-[Tue May 25 08:51:42 1982 by jkf]-
Results for Franz Lisp Opus 38.18, and compiler Liszt 8.07

			11/780
Slow links:
(power= 2 (0.05 0.0) (0.06666666666666667 0.0) (0.06666666666666667 0.0))
(power= 5 (0.6 0.0) (1.18333 0.4166666666666667) (0.9833333333333333 0.4))
(power= 10 (7.6666667 0.8833) (14.866667 3.83333) (8.6166667 1.433333333333))
(power= 15 (52.51666666666667 5.316666667) (132.8 43.0) (54.2666667 6.95))

Normal links:
(power= 2 (0.01666667 0.0) (0.01666666667 0.0) (0.03333333333333333 0.0))
(power= 5 (0.2 0.0) (0.3833333333333333 0.0) (0.2166666666666667 0.0))
(power= 10 (2.333333333333333 0.0) (8.0 2.266666666666667) (2.6 0.0))
(power= 15 (20.6 4.016666666667) (86.5 30.3833333) (25.0833333 6.766666667))

Local Functions:
(power= 2 (0.01666666667 0.0) (0.016666667 0.0) (0.01666666666666667 0.0))
(power= 5 (0.15 0.0) (0.66666667 0.36666667) (0.51666667 0.3333333333333333))
(power= 10 (2.6 0.8333333333333333) (8.866667 3.7) (3.85 1.833333333333333))
(power= 15 (18.48333333 5.6333333) (93.866667 41.75) (21.7 6.966666666667))

 			11/750
Slow links:
(power= 2 (0.0833333333333 0.0) (0.116666666667 0.0) (0.08333333333333 0.0))
(power= 5 (0.933333333 0.0) (1.8 0.56666666667) (1.6166666667 0.633333333333))
(power= 10 (12.06666667 1.3666666667) (22.26667 5.93333) (13.86667 2.8833333))
(power= 15 (82.5666667 9.3833333) (202.683333 67.46666667) (86.83333 11.2167))

Normal links:
(power= 2 (0.05 0.0) (0.03333333333333333 0.0) (0.03333333333333333 0.0))
(power= 5 (0.35 0.0) (1.18333333 0.566667) (1.0166667 0.6666666666666667))
(power= 10 (5.3666667 1.383333) (14.95 5.816667) (7.266666666666667 2.95))
(power= 15 (37.233333 9.1166667) (155.45 67.15) (41.46666666666667 11.0))

Local functions:
(power= 2 (0.0333333 0.0) (0.03333333333333333 0.0) (0.01666666666666667 0.0))
(power= 5 (0.2666666666666667 0.0) (0.4833333333333333 0.0) (0.3 0.0))
(power= 10 (3.15 0.0) (11.81666666666667 3.516666666666667) (3.466666666666667 0.0))
(power= 15 (29.46666666666667 6.65) (129.5666666666667 48.21666666666667) (36.7 11.21666666666667))nil


Slow links means (sstatus translink nil)
Fast links means (sstatus translink t)
Local functions means that certain functions are declared to be local
  to this file.



∂06-May-82  0129	Mabry Tyson <Tyson at SRI-AI> 	FRPOLY results for UCI Lisp  
Date:  6 May 1982 0127-PDT
From: Mabry Tyson <Tyson at SRI-AI>
Subject: FRPOLY results for UCI Lisp
To: rpg at SU-AI

Results on FRPOLY for UCILISP (version from University of Texas at Austin
running on SRI-AI TOPS-20).  Running with the TOPS-10/TOPS-20 compatibility
package.

Notes relevent to this problem:  UCILSP does not have bignums.  (The hooks are
there but I know of no source that uses them.)   All arithmetic operations
are generic and are NOT compiled in-line.  The times reported are CPU times
and the first time (the total) includes the second time (the GC time).
The only non-syntactic change to the source was to change the divisor for
the time computation from 1000000.0 to 1000.0 since UCILSP reports times in
milliseconds.

Interpreted (Macros expanded once only):
(bench 2)
(POWER= 2 (0.58200000 0.00000000) ? (0.67300000 0.00000000))
(bench 5)
(POWER= 5 (6.0660000 0.00000000) ? (6.1940000 0.00000000))

Compiled without fast links (and that includes calls to arithmetic functions):
(bench 2)
(POWER= 2 (0.84000000E-1 0.00000000) ? (0.90000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.93900000 0.00000000) ? (1.0160000 0.00000000))
(bench 10)
(POWER= 10 (19.273000 1.1050000) ? (19.655000 1.0580000))
(bench 15)
(POWER= 15 (31.048000 2.1530000) ? (33.469000 3.2140000))

Compiled with fast links:
(bench 2)
(POWER= 2 (0.18000000E-1 0.00000000) ? (0.23000000E-1 0.00000000))
(bench 5)
(POWER= 5 (0.20800000 0.00000000) ? (0.27900000 0.00000000))
(bench 10)
(POWER= 10 (5.5870000 1.0570000) ? (6.3900000 1.0760000))
(bench 15)
(POWER= 15 (9.1310000 2.0910000) ? (11.560000 3.1940000))
-------

;;;LM-2
;; 3. FRPOLY

(DEFUN TEST-FRPOLY (N)
  (LET (START RES1 RES2 RES3)
    (WITHOUT-INTERRUPTS
      (SETQ START (TIME:MICROSECOND-TIME))
      (PEXPTSQ R N)
      (SETQ RES1 (TIME:MICROSECOND-TIME))
      (PEXPTSQ R2 N)
      (SETQ RES2 (TIME:MICROSECOND-TIME))
      (PEXPTSQ R3 N)
      (SETQ RES3 (TIME:MICROSECOND-TIME)))
    (FORMAT T "~%Power= ~D. ~20T~S ~32T~S ~44T~S" N
	    (// (- RES1 START) 1000000.0)
	    (// (- RES2 RES1)  1000000.0)
	    (// (- RES3 RES2)  1000000.0))))

;; Compiled results
;; Power= 2.           0.016191    0.020865    0.021139
;; Power= 2.           0.01614     0.020716    0.020233
;; Power= 5.           0.175673    0.251539    0.236832
;; Power= 5.           0.20282     0.251422    0.236561
;; Power= 10.          2.202732    3.7338      3.143525
;; Power= 10.          2.293053    3.520599    2.725204
;; Power= 15.          18.589147   32.037923   22.587246
;; Power= 15.          18.547342   30.895854   22.432256